home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / find.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-25  |  567b  |  31 lines
  1. /*
  2.     FIND ALL ENTRY IN "USER" AND "WWW" GROUP
  3. */
  4.  
  5. l="rxcmanager.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  6.  
  7. parse arg key
  8.  
  9. k = "#?"key"#?"
  10.  
  11. patt.Name    = k
  12. patt.WWW     = k
  13. patt.Comment = k
  14.  
  15. num = CMFind("USER WWW","REC","PATT",1)
  16. if num=0 then do
  17.     say "No entry found for '"key"'"
  18.     exit
  19. end
  20.  
  21. say "Found" num "entry:"
  22. do i=0 to num-1
  23.     say
  24.     say "Type:     " rec.i.Type
  25.     say "Name:     " rec.i.Name
  26.     say "WWW:      " rec.i.WWW
  27.     say "Comment:  " rec.i.Comment
  28.     if rec.i.Type="WWW" then say "WebMaster:" rec.i.WebMaster
  29.     say "EMail:    " rec.i.EMail
  30. end
  31.